home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / misc / amag / AM95064b.lha / HD-Installation < prev    next >
Text File  |  1992-09-02  |  1KB  |  48 lines
  1. ; OLDTIMER Harddisk-Installation
  2.  
  3. (set name
  4.     (askdir
  5.         (prompt "Bitte wählen Sie das Verzeichnis, in dem das OLDTIMER-Verzeichnis angelegt werden soll.")
  6.         (help "Nix.")
  7.                 (default "SYS:")
  8.     )
  9. )
  10.  
  11. (if (< (getdiskspace name) 12000000) 
  12.         (abort  "Auf diesem Laufwerk ist nicht genug Platz!! "
  13.                 "Es werden mindestens 12MB freier Festplattenspeicher "
  14.                 "benötigt, um die Installation durchführen zu können!")
  15. )
  16.  
  17. (set sstr (substr name (- (strlen name) 1) 1))
  18.  
  19. (if (or (= sstr "/") (= sstr ":")) (set dname (cat name "Oldtimer")) (set dname (cat name "/Oldtimer")))
  20.  
  21. (copyfiles (source "Oldtimer1:Oldtimer.inf") 
  22.            (dest name) 
  23.            (newname "Oldtimer.info")
  24. )
  25.  
  26. (copyfiles (source "Oldtimer1:LHEx") (dest "ram:"))
  27.  
  28. (makedir dname
  29.         (prompt "OLDTIMER wird nun in das Verzeichnis \""
  30.         dname"\" installiert.")
  31.     (help "Nix.")
  32.         (confirm)
  33. )
  34.  
  35. (set oname (cat "ram:lhex -w=" dname))
  36.  
  37. (run (cat oname " x Oldtimer1:Oldtimer1.lha"))
  38. (run (cat oname " x Oldtimer2:Oldtimer2.lha"))
  39. (run (cat oname " x Oldtimer3:Oldtimer3.lha"))
  40. (run (cat oname " x Oldtimer4:Oldtimer4.lha"))
  41. (run (cat oname " x Oldtimer5:Oldtimer5.lha"))
  42. (run (cat oname " x Oldtimer6:Oldtimer6.lha"))
  43. (run (cat oname " x Oldtimer7:Oldtimer7.lha"))
  44. (run (cat oname " x Oldtimer8:Oldtimer8.lha"))
  45.  
  46. (delete "ram:lhex")
  47.  
  48.